home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1997 January / Designer's Club 1997 January.iso / mac / Idea Source / Prem.DIR / 00190_Script_190 < prev    next >
Text File  |  1996-11-22  |  2KB  |  58 lines

  1. on startmovie
  2.   global slider, toolH, toolV,
  3.   set the locH of sprite 40 to toolH
  4.   set the locV of sprite 40 to toolV
  5. end
  6.  
  7. on stopmovie
  8.   global toolH, toolV
  9.   set toolH = the locH of sprite 40
  10.   set toolV = the locV of sprite 40
  11. end
  12.  
  13. on pressit button
  14.   puppetsound (2) "clickdn"
  15.   repeat while the mousedown
  16.     set the visible of sprite button to false
  17.     updatestage
  18.   end repeat
  19.   set the visible of sprite button to true
  20.   puppetsound (2) "clickup"
  21. end
  22.  
  23. on tools
  24.   repeat with n = 41 to 46
  25.     puppetsprite n, true
  26.   end repeat
  27.   repeat with n = 41 to 46
  28.     set the locV of sprite n to the locV of sprite 40 + 26
  29.   end repeat
  30.   set the locH of sprite 41 to the locH of sprite 40 
  31.   set the locH of sprite 42 to the locH of sprite 40 - 86
  32.   set the locH of sprite 43 to the locH of sprite 40 - 48
  33.   set the locH of sprite 44 to the locH of sprite 40 - 3
  34.   set the locH of sprite 45 to the locH of sprite 40 + 41
  35.   set the locH of sprite 46 to the locH of sprite 40 + 82
  36.   updatestage
  37. end tools
  38.  
  39. on keyDown 
  40.   go the frame +1
  41.   if the key = 1 then set the soundLevel to (1)
  42.   if the key = 2 then set the soundLevel to (2)
  43.   if the key = 3 then set the soundLevel to (3)
  44.   if the key = 4 then set the soundLevel to (4)
  45.   if the key = 5 then set the soundLevel to (5)
  46.   if the key = 6 then set the soundLevel to (6)
  47.   if the key = 7 then set the soundLevel to (7)
  48.   if the key = "S" then
  49.     if the volume of sound 2 = 0 then
  50.       set the volume of sound 2 to the soundlevel * 36
  51.     else set the volume of sound 2 to 0
  52.   end if
  53. end keydown
  54.  
  55.  
  56.  
  57.  
  58.